home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / egcg1 / g44.bas < prev    next >
BASIC Source File  |  1991-10-18  |  2KB  |  58 lines
  1. 100 ' G44 T.WAKAMATSU 
  2. 110 H=3
  3. 120 FOR I=1 TO 5:A(I)=0:B(I)=0:C(I)=1:D(I)=1:NEXT I
  4. 130 D(H)=-1:CLS
  5. 140 V1=320:W1=240:X1=327:Y1=240
  6. 150 V2=320:W2=240:X2=320:Y2=247
  7. 160 V3=320:W3=240:X3=313:Y3=240
  8. 170 V4=320:W4=240:X4=320:Y4=233
  9. 180 J=0:GOTO 330
  10. 190 J=J+1:IF J=5 THEN 380
  11. 200 A(J)=A(J)+1
  12. 210 IF A(J)=5 THEN A(J)=0:GOTO 190
  13. 220 K=B(J)+C(J)
  14. 230 IF K=0 OR K=5 THEN C(J)=-C(J):K=B(J)
  15. 240 P=C(J)*D(K):B(J)=K
  16. 250 S1=(Y1-W1)*P+X1:T1=(V1-X1)*P+Y1
  17. 260 S2=560-T1:T2=S1-80
  18. 270 S3=560-T2:T3=S2-80
  19. 280 S4=560-T3:T4=S3-80
  20. 290 V1=X1:W1=Y1:X1=S1:Y1=T1
  21. 300 V2=X2:W2=Y2:X2=S2:Y2=T2
  22. 310 V3=X3:W3=Y3:X3=S3:Y3=T3
  23. 320 V4=X4:W4=Y4:X4=S4:Y4=T4
  24. 330 LINE (V1,W1)-(X1,Y1),PSET,2
  25. 340 LINE (V2,W2)-(X2,Y2),PSET,3
  26. 350 LINE (V3,W3)-(X3,Y3),PSET,4
  27. 360 LINE (V4,W4)-(X4,Y4),PSET,5
  28. 370 J=1:GOTO 200
  29. 380 FOR D=1 TO 10000:NEXT D
  30. 390 H=3
  31. 400 FOR I=1 TO 5:A(I)=0:B(I)=0:C(I)=1:D(I)=1:NEXT I
  32. 410 D(H)=-1
  33. 420 V1=320:W1=240:X1=327:Y1=240
  34. 430 V2=320:W2=240:X2=320:Y2=247
  35. 440 V3=320:W3=240:X3=313:Y3=240
  36. 450 V4=320:W4=240:X4=320:Y4=233
  37. 460 J=0:GOTO 610
  38. 470 J=J+1:IF J=5 THEN 660
  39. 480 A(J)=A(J)+1
  40. 490 IF A(J)=5 THEN A(J)=0:GOTO 470
  41. 500 K=B(J)+C(J)
  42. 510 IF K=0 OR K=5 THEN C(J)=-C(J):K=B(J)
  43. 520 P=C(J)*D(K):B(J)=K
  44. 530 S1=(Y1-W1)*P+X1:T1=(V1-X1)*P+Y1
  45. 540 S2=560-T1:T2=S1-80
  46. 550 S3=560-T2:T3=S2-80
  47. 560 S4=560-T3:T4=S3-80
  48. 570 V1=X1:W1=Y1:X1=S1:Y1=T1
  49. 580 V2=X2:W2=Y2:X2=S2:Y2=T2
  50. 590 V3=X3:W3=Y3:X3=S3:Y3=T3
  51. 600 V4=X4:W4=Y4:X4=S4:Y4=T4
  52. 610 LINE (V1,W1)-(X1,Y1),PSET,0
  53. 620 LINE (V2,W2)-(X2,Y2),PSET,0
  54. 630 LINE (V3,W3)-(X3,Y3),PSET,0
  55. 640 LINE (V4,W4)-(X4,Y4),PSET,0
  56. 650 J=1:GOTO 480
  57. 660 CLS
  58.